Description: Get a mouse click from a specified object area
Mapped Command: WAIT EVENT <label>
FUNCTION __WaitForClick(label,deactivate,release,noflash)
   local handle  := __ScanObjects(label)         // get the handle for this object
   if __HandleInRange(handle) > 0                // if the handle is valid
      noflash := if(noflash == NIL,FALSE,noflash)  // are we going to flash the object on selection
      do while TRUE                              // loop until the region specified was clicked in
         if mstatus() == 1 .and. handle == mgethot()
            exit                                 // exit when the region is clicked
         endif                                   // if mstatus() == 1 .and. region == mgethot()
      enddo                                      // continue looping
      if deactivate
         __DeaEventRegion(label,FALSE)
      endif                                      // if deactivate
      if release
         __RelEventRegion(label)
      endif                                      // if release
   else
      __Handleerror(NoSuchLabel,label,procname())
   endif                                         // if __handleinrange()
RETURN("")                                       // return a blank label